﻿Imports Datos
Public Class EjecutorNegocio
    Public Function EjecutaQuery(ByVal query As String, ByVal archivo As String) As Integer
        Dim ejecutor As New Ejecutor
        Return ejecutor.EjecutaQuery(query, archivo)
    End Function
    Public Function ExisteQuery(ByVal query As String, ByVal archivo As String) As Boolean
        Dim ejecutor As New Ejecutor
        Return ejecutor.ExisteQuery(query, archivo)
    End Function
    Public Function EjecutarProcedures(ByVal procedure As String) As Boolean
        Dim ejecutor As New EjecutorSQL
        Return ejecutor.EjecutaProcedures(procedure)
    End Function

End Class
